home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Science / Gnuplot 3.5 / demo / poldat.dem < prev    next >
Text File  |  1993-11-03  |  1KB  |  64 lines
  1. #
  2. # $Id: poldat.dem%v 3.38.2.88 1993/03/04 01:47:16 woo Exp woo $
  3. #
  4. #
  5. set size .8,1.0
  6. set time
  7. set clip
  8. set grid
  9. set noborder
  10. set noparam
  11. set title "Antenna Pattern"
  12. set xlabel "Azimuth"
  13. set ylabel "dBSM"
  14. set data style line
  15. set angles degrees
  16. set polar
  17. set yrange [-220:220]
  18. set rrange [-200:60]
  19. plot "polar.dat" using 1:5,"antenna.dat"
  20. pause -1 "Hit return to continue"
  21. set nogrid
  22. set nopolar
  23. set title "Primitive Smith Chart"
  24. set nokey
  25. set xlabel "Impedance or Admittance Coordinates"
  26. set para
  27. set nogrid
  28. set rrange [-0 : 10]
  29. set trange [-pi : pi]
  30. set xrange [-1:1]
  31. set yrange [-1:1]
  32. tv(t,r) = sin(t)/(1+r)
  33. tu(t,r) = (cos(t) +r)/(1+r)
  34. cu(t,x) = 1 + cos(t)/x
  35. cv(t,x) = (1+ sin(t))/x
  36. plot cu(t,.1),cv(t,.1),cu(t,.1),-cv(t,.1),\
  37. cu(t,1),cv(t,1),cu(t,1),-cv(t,1),\
  38. cu(t,10),cv(t,10),cu(t,10),-cv(t,10),\
  39. tu(t,.1),tv(t,.1),\
  40. tu(t,.5),tv(t,.5),\
  41. tu(t,1),tv(t,1),\
  42. tu(t,5),tv(t,5),\
  43. tu(t,10),tv(t,10),\
  44. cu(t,.5),cv(t,.5),cu(t,.5),-cv(t,.5),\
  45. tu(t,0),tv(t,0)
  46. #cu(t,5),cv(t,5),cu(t,5),-cv(t,5)
  47. pause -1 "Hit return to continue"
  48. set noparam
  49. set key
  50. set size 1.0,1.0
  51. set notime
  52. set title "" 0,0
  53. set xlabel "" 0,0
  54. set ylabel "" 0,0
  55. set data style points
  56. set angles radians
  57. set nopolar
  58. set yrange [-10:10]
  59. set rrange [0:10]
  60. set auto
  61. set noparam
  62. set border
  63. set nogrid
  64.